'(THIS IS THE LAP FOR ((DSK (AID RPG)) KEEP /2)) 
'(COMPILED BY LISP COMPILER /879) 

;COMPILED ON APRIL 25, 1979, AT 11:22 AM


(LAP KEEP FSUBR)     
	(JUMPE A C2)
	(SETO A)
	(HRLI B -1)
	(HRRI B HIDIT)
	(CALLI B 400121)
C2
	(MOVEM A HIDE)
	(MOVEI B 30.)
	(CALLI B 31)
	(TTYUUO 2 A)
	(JRST 0 (+ C2 2))
	(CAIE A 15)
	(CAIN A 12)
	(JRST 0 (+ C2 2))
	(MOVE A self)
	(CALLI A 400111)
	(MOVEI A 'T)
	(SKIPN 0 HIDE)
	(POPJ P)
	(HRLI B -1)
	(HRRI B UNHIDIT)
	(CALLI B 400121)
	(POPJ P)
hide	(0)
hidit 	(004000000110)
unhidit (004000000510)
self 	(-1)
()